(defun C:MKPATH1 (/ ln1 ln2 ln1end ln2start)
  (setq ln1 (entget (ssname (ssget ":S" '((62 . 3))) 0)))
  (while t
    (setq ln1 (entget (ssname (ssget "P") 0)))
    (setq ln2 (entget (ssname (ssget ":S" '((62 . 3))) 0)))
    (setq ln1end (list (cadr (assoc 11 ln1))
                       (caddr (assoc 11 ln1))
                 )
    )
    (setq ln2start (list (cadr (assoc 10 ln2))
                         (caddr (assoc 10 ln2))
                   )
    )
    ;;(command "_line" ln1end ln2start "")
    (entmake
      (list
        (cons '0 "LINE")                ; entity type (line)
        (cons '10 ln1end)               ; start point
        (cons '11 ln2start)             ; end point
        (cons '8 "PATH")                ; layer
        (cons '62 256)                  ; color
      )
    )
  )
  (princ)
)